﻿<!-- #include file="mymin.asp" -->
<%Call Head()

dim rs1,sql1,id
id= request.QueryString("id")
If id="" Or IsNumeric(id)=False Then Call error("<card title=""出错""><p>ID出错！")
id=int(id)

'验证权限
If key=2 And keyids<>"" Then
	Dim ids_,i_,flag
	ids_= Split(keyids,",")
	flag=0
	For i_=LBound(ids_) To UBound(ids_)
		If ids_(i_)-id=0 Then flag=1:Exit For
	Next
	if flag=0 then Call error("<card title=""警告""><p>权限不足！")
End If

set rs1=server.createobject("adodb.recordset")
rs1.open "Select class from 74hu_list where classid="&id,myconn,1,1
if not rs1.eof then
	classname=rs1("class")
end if
rs1.close
set rs1=nothing
If id<>0 Then
	w "<card title='"&classname&"'><p>"
Else
	w "<card title='投稿审核'><p>"
End If

dim rs,sql
If id<>0 Then w "<a href='add.asp?sid="&sid&"&amp;id="&id&"'>[添加文章]</a><br/>"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from 74hu_article where classid="&id&" order by id desc"
rs.open sql,myconn,1,1
If Not rs.eof	Then
	Dim pagesize,count,page,i,pagecount
	PageSize=10
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
		If rs.eof Then Exit For
%><a href='wzgl.asp?sid=<%=sid%>&amp;id=<%=rs("id")%>&amp;classid=<%=rs("classid")%>'>[管理]</a><%=i+(page-1)*PageSize%>.<a href='smsview.asp?sid=<%=sid%>&amp;id=<%=rs("id")%>&amp;ids=<%=rs("classid")%>'><%=nowml(rs("title"))%></a><br/>
<%
		rs.moveNext
	Next
	w showPage("adminsmscl.asp", "id:"&id, page, pageCount)
Else
	w "暂时没有文章！"
end if
rs.close
set rs=nothing


If id<>0 Then
%>
<br/>----------<br/>
<a href="upfile.asp?sid=<%=sid%>&amp;id=<%=id%>">[2.0传文章]</a><br/>
<a href="upfile2.asp?sid=<%=sid%>&amp;id=<%=id%>">[带文件上传]</a><br/>
<%
Else
%>
<br/>
注:审核:管理-移动文章-(选择分类)
<br/>----------<br/>
<%
End If
%>
<a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a><%Call Last%>